home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume22 / sc / patch01a next >
Encoding:
Text File  |  1991-09-20  |  50.5 KB  |  1,756 lines
  1. Newsgroups: comp.sources.misc
  2. From: uunet!sawmill!prslnk!buhrt (Jeff Buhrt)
  3. Subject:  REPOST: v22i095:  sc - The SC Spreadsheet, release 6.16, Patch01a/2
  4. Message-ID: <1991Sep20.143324.5998@sparky.imd.sterling.com>
  5. X-Md4-Signature: ae2e70f73bf50230d7bdc8ef7b6e8940
  6. Date: Fri, 20 Sep 1991 14:33:24 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: uunet!sawmill!prslnk!buhrt (Jeff Buhrt)
  10. Posting-number: Volume 22, Issue 95
  11. Archive-name: sc/patch01a
  12. Environment: UNIX, VMS, MS-DOS
  13. Patch-To: sc: Volume 20, Issue 35-41
  14.  
  15. [ This is being reposted due to a propagation error. ]
  16.  
  17. This is the first part of a  two  part SHAR archive that must be 
  18. extracted before applying pch616-617 to Sc6.16. The new revision 
  19. level will be: 6.17.
  20.  
  21. To see what this changes see CHANGES down about 30 lines. There
  22. There were no major bugs, just a few small fixes, new features, 
  23. and new hardware/OS platforms.
  24.  
  25.                     -Jeff Buhrt
  26.                 {sequent,uunet}!sawmill!prslnk!buhrt
  27.                 812-275-0750 work
  28.                 Proslink, Inc.
  29. ----
  30. #!/bin/sh
  31. # This is a shell archive (produced by shar 3.49)
  32. # To extract the files from this archive, save it to a file, remove
  33. # everything above the "!/bin/sh" line above, and type "sh file_name".
  34. #
  35. # This is part 1 of a multipart archive                                    
  36. # do not concatenate these parts, unpack them in order with /bin/sh        
  37. #
  38. # This shar contains:
  39. # length  mode       name
  40. # ------ ---------- ------------------------------------------
  41. #  72450 -rw-rw-rw- pch616-617
  42. #    189 -r--r--r-- torev
  43. #
  44. if test -r _shar_seq_.tmp; then
  45.     echo 'Must unpack archives in sequence!'
  46.     echo Please unpack part `cat _shar_seq_.tmp` next
  47.     exit 1
  48. fi
  49. # ============= pch616-617 ==============
  50. if test -f 'pch616-617' -a X"$1" != X"-c"; then
  51.     echo 'x - skipping pch616-617 (File already exists)'
  52.     rm -f _shar_wnt_.tmp
  53. else
  54. > _shar_wnt_.tmp
  55. echo 'x - extracting pch616-617 (Text)'
  56. sed 's/^X//' << 'SHAR_EOF' > 'pch616-617' &&
  57. *** 6.16    1991/06/04 18:55:36
  58. --- CHANGES    1991/09/04 14:27:59
  59. ***************
  60. *** 1,3 ****
  61. --- 1,48 ----
  62. + CHANGES BETWEEN 6.17 and 6.16
  63. + Ulf Noren
  64. +     - added cell locking, disallowing input, to ranges of cells
  65. + Herr Soeryantono
  66. +     - I added ifdef's around curses KEY_* functions his curses didn't have
  67. +         (Sun/OS 4 on a SPARC)
  68. + Jay Lepreau
  69. +     - changes to tutorial.sc: how to get out, should be used w/ 24 lines
  70. +     - IDLOKBAD was not passed to screen.c
  71. +     - suggested error messages if the execl of crypt fails
  72. +     - pointed out BSD's crypt is in /usr/bin/crypt
  73. + Henk P. Penning
  74. +     - suggested Makefile list the mode of the man page & tutorial.sc
  75. +     - make install will now install the psc man
  76. +     - yylval was not known in lex.c for HP-UX 7.05
  77. + Edgard
  78. +     - hitwinch fixes
  79. +     - KEY_HOME now takes you to 0,0
  80. + CHECK KEY_NPAGE/PPAGE
  81. + Stephen (Steve) M. Brooks
  82. +     - suggested the man pages should include Sc's revision
  83. + Dan Banay
  84. +     - code to set LINES and COLS after a window size change
  85. + Bart Schaefer
  86. +     - @myrow/@mycol fix
  87. + Bruce Jerrick
  88. +     - noted ln may not always work for the temporary source files
  89. + Gene H. Olson
  90. +     - fixes for SIGWINCH for Sun OS 4.1.1
  91. + Teus Hagen
  92. +     - added three functions:
  93. +         1) allow @PI as well
  94. +         2) @upper/@lower for casing characters in a string
  95. +         3) @capital for upper case first char of words in a string.
  96. + Martin Maclaren
  97. +     - added MS-DOS support
  98. +         COMPILER USED: Microsoft C, 5.1
  99. +         TOOLS USED   : NDMAKE GNUBISON GNUSED PCCURSES
  100. + Cuong Bui
  101. +     - has a working Vietnamese version of sc, noted a A_CHARTEXT
  102. +         mask problem
  103. + Jeff Buhrt
  104. +     - when numeric prescale is on: 300 -> 3.0, now 300. -> 300. not 3.0
  105. +         (numbers with a decimal aren't scaled)
  106. + 
  107. X  CHANGES BETWEEN 6.16 and 6.15
  108. X  Tom Tkacik
  109. X      -fixed a bug in ^W
  110. *** 6.16    1991/06/04 18:57:22
  111. --- README    1991/09/04 14:27:58
  112. ***************
  113. *** 1,8 ****
  114. X  This is a much modified version of the public domain spread sheet sc,
  115. X  posted several years ago by Mark Weiser as vc, originally by James Gosling.
  116. X  
  117. ! CHANGES lists the changes since 6.1 to 6.15.
  118. ! Current maintainer: {sequent, tippy.cs.purdue.edu}!sawmill!buhrt (Jeff Buhrt)
  119. X  
  120. X  When you get it built, try "sc tutorial.sc" for a simple introduction
  121. X  to the basic commands.
  122. --- 1,8 ----
  123. X  This is a much modified version of the public domain spread sheet sc,
  124. X  posted several years ago by Mark Weiser as vc, originally by James Gosling.
  125. X  
  126. ! CHANGES lists the changes since 6.1 to 6.17.
  127. ! Current maintainer: {sequent, uunet}!sawmill!prslnk!buhrt (Jeff Buhrt)
  128. X  
  129. X  When you get it built, try "sc tutorial.sc" for a simple introduction
  130. X  to the basic commands.
  131. ***************
  132. *** 13,19 ****
  133. X  If you have the command 'file' that uses /etc/magic add the line:
  134. X  38    string        Spreadsheet    sc file
  135. X  
  136. ! Psc formats ascii files for use in the spread sheet.  If you don't have
  137. X  getopts, there is a public domain version by Henry Spencer hidden away in
  138. X  the VMS_NOTES file.
  139. X  
  140. --- 13,19 ----
  141. X  If you have the command 'file' that uses /etc/magic add the line:
  142. X  38    string        Spreadsheet    sc file
  143. X  
  144. ! Psc formats ascii files for use in the spreadsheet.  If you don't have
  145. X  getopts, there is a public domain version by Henry Spencer hidden away in
  146. X  the VMS_NOTES file.
  147. X  
  148. ***************
  149. *** 36,69 ****
  150. X  makefile).  SIMPLE causes the arrow keys to not be used.
  151. X  
  152. X  If you have problems with your yacc saying: too many terminals ...127...
  153. ! Comment out the gram.c and y.tab.c code in Makefile and uncomment the
  154. ! section that uses mygram.c and myy.tab.h.
  155. X  
  156. X  Guidelines for Hackers:
  157. X  
  158. X  If you want to send changes you have made to SC, please feel free to do
  159. ! so.  If they work :-) and seem worthwhile, I'll put them in.  Please
  160. ! refrain from wholesale "style" or "cleanup" changes.  It is easy to add
  161. ! your changes but it makes it hard to merge in the next guy's stuff if
  162. ! he used the release as a base.  Leave my $Revision:  identifiers alone-
  163. ! they help me track what you used as a base.  If you check the code into
  164. ! rcs, delete the "$"s on the Revison lines before you do.
  165. ! 
  166. ! You may not like 4 space indenting and curly braces on the "if" line, but
  167. ! your code will look like that before it leaves my hands so you may as well
  168. ! abide by the style in the code when you make your changes.  I have also been
  169. ! known to break things trying to make them look "right".  If you do string
  170. ! functions, please, PLEASE pay attention to null pointers, use xmalloc,
  171. ! xrealloc, and xfree; and xfree those arguments.  And don't forget to
  172. ! document your changes in both help.c and sc.doc.
  173. X  
  174. X  Disclaimer:
  175. X  
  176. X  Starting 4/4/90: (I will be maintaining Sc for a while at least,
  177. X      Robert Bond has been very busy lately)
  178. - Sc is not a product of Grauel Enterprises, Inc.  It is supplied as
  179. - is with no warranty, express or implied, as a service to Usenet readers.
  180. - It is not copyrighted, either.  Have at it.
  181. X  
  182. X  Archives:
  183. X  1) (FTP) jpd@usl.edu James Dugal
  184. --- 36,71 ----
  185. X  makefile).  SIMPLE causes the arrow keys to not be used.
  186. X  
  187. X  If you have problems with your yacc saying: too many terminals ...127...
  188. ! Find a different yacc: bison, Berkeley yacc, Pd yacc, etc. AT&T's Sys V
  189. ! yacc has small, fixed sized tables. SCO will allow dynamic yacc tables
  190. ! when given the correct flags.
  191. X  
  192. X  Guidelines for Hackers:
  193. X  
  194. X  If you want to send changes you have made to SC, please feel free to do
  195. ! so.  If they work :-) and seem worthwhile, I'll put them in.
  196. X  
  197. + a) Please refrain from wholesale "style" or "cleanup" changes.  It is easy
  198. +     to add your changes but it makes it hard to merge in the next guy's
  199. +     stuff if he used the release as a base.  Suggestions are welcome.
  200. + 
  201. + b) Leave my $Revision:  identifiers alone-they help me track what you used
  202. +     as a base.  If you check the code into rcs, delete the "$"s on the
  203. +     Revison lines before you do.
  204. + c) Please abide by the style in the code when you make your changes.  It is easy
  205. +      to break things trying to make them look "right".
  206. + d) If you do string functions, please, PLEASE pay attention to null pointers,
  207. +     use xmalloc, xrealloc, and xfree; and xfree those arguments.
  208. + e) Please don't forget to document your changes in both help.c and sc.doc.
  209. + f) WHEN sending diffs: please use diff -c (context diff, and possibly
  210. +     more than three lines on each side), I get a lot of code and
  211. +     things move.
  212. + g) Please send an explanation of what your code does and how to use/test it.
  213. + 
  214. X  Disclaimer:
  215. X  
  216. X  Starting 4/4/90: (I will be maintaining Sc for a while at least,
  217. X      Robert Bond has been very busy lately)
  218. X  
  219. X  Archives:
  220. X  1) (FTP) jpd@usl.edu James Dugal
  221. ***************
  222. *** 76,82 ****
  223. X    Note: dumbcat speaks 9600 at V.32 -- sorry, this is not a Telebit modem.
  224. X    (Grab dumbcat!~/INDEX for a complete list)
  225. X  
  226. X                      Jeff Buhrt
  227. !                     Grauel Enterprises, Inc.
  228. !                     sequent!sawmill!buhrt
  229. X  
  230. --- 78,88 ----
  231. X    Note: dumbcat speaks 9600 at V.32 -- sorry, this is not a Telebit modem.
  232. X    (Grab dumbcat!~/INDEX for a complete list)
  233. X  
  234. + Sc is not a product of ProsLink, Inc.  It is supplied as is with no
  235. + warranty, express or implied, as a service to Usenet readers.  It is not
  236. + copyrighted, either.  Have at it.
  237. + 
  238. X                      Jeff Buhrt
  239. !                     ProsLink, Inc.
  240. !                     {sequent, uunet}!sawmill!prslnk!buhrt
  241. X  
  242. *** 6.16    1991/06/04 18:57:22
  243. --- sc.doc    1991/09/04 14:28:02
  244. ***************
  245. *** 15,23 ****
  246. X  .\" - TPs use default indent except for function names, then 18.
  247. X  .\" - Smallify uppercase strings.
  248. X  .\" - Avoid passive voice and third person.
  249. ! .\" $Revision: 6.16 $
  250. X  .\"
  251. ! .TH PNAME 1
  252. X  .SH NAME
  253. X  pname \- spreadsheet calculator
  254. X  .SH SYNOPSIS
  255. --- 15,23 ----
  256. X  .\" - TPs use default indent except for function names, then 18.
  257. X  .\" - Smallify uppercase strings.
  258. X  .\" - Avoid passive voice and third person.
  259. ! .\" $Revision: 6.17 $
  260. X  .\"
  261. ! .TH PNAME\ #REVISION#\  1
  262. X  .SH NAME
  263. X  pname \- spreadsheet calculator
  264. X  .SH SYNOPSIS
  265. ***************
  266. *** 1161,1166 ****
  267. --- 1161,1176 ----
  268. X  as long as they occur after the first three alpha characters.
  269. X  .\" ----------
  270. X  .TP
  271. + .B /l
  272. + Use this command to lock the current cell or a range of cells, i.e
  273. + make them immune to any type of editing. A locked cell can't be changed
  274. + in anyway until it is unlocked.
  275. + .TP
  276. + .B /U
  277. + This command is the opposite of the
  278. + .I /l
  279. + command and thus unlocks a locked cell and makes it editable.
  280. + .TP
  281. X  .B /s
  282. X  This command lists (shows) the currently defined range names.
  283. X  If there are no defined range names, then a message is given,
  284. ***************
  285. *** 1866,1871 ****
  286. --- 1876,1892 ----
  287. X  Be sure the table doesn't move unexpectedly!
  288. X  .\" ----------
  289. X  .TP 18
  290. + .BR @upper (e)
  291. + and
  292. + .BR @lower (e)
  293. + will case the string expression to upper or lower.
  294. + .\" ----------
  295. + .TP 18
  296. + .BR @capital (e)
  297. + will convert the first letter of words in a string
  298. + into upper case.
  299. + .\" ----------
  300. + .TP 18
  301. X  .BR @ext (se,e)
  302. X  Call an external function (program or script).
  303. X  The purpose is to allow arbitrary functions on values,
  304. ***************
  305. *** 2094,2101 ****
  306. X  .IR sc ,
  307. X  and further modified by numerous contributors,
  308. X  Jeff Buhrt
  309. ! of Grauel Enterprises, Inc.
  310. ! ({pur-phy (aka: gibbs.physics.purdue.edu), sequent}!sawmill!buhrt)
  311. X  and Robert Bond of Sequent,
  312. X  prominent among them.
  313. X  Other contributors include:
  314. --- 2115,2122 ----
  315. X  .IR sc ,
  316. X  and further modified by numerous contributors,
  317. X  Jeff Buhrt
  318. ! of Proslink, Inc.
  319. ! ({sequent, uunet}!sawmill!prslnk!buhrt)
  320. X  and Robert Bond of Sequent,
  321. X  prominent among them.
  322. X  Other contributors include:
  323. ***************
  324. *** 2102,2112 ****
  325. --- 2123,2137 ----
  326. X  Tom Anderson,
  327. X  Glenn T. Barry,
  328. X  Gregory Bond,
  329. + Stephen (Steve) M. Brooks,
  330. X  Peter Brower,
  331. X  John Campbell,
  332. X  Lawrence Cipriani,
  333. X  Jim Clausing,
  334. + Dave Close,
  335. X  Chris Cole,
  336. + Jonathan Crompron
  337. + David I. Dalva,
  338. X  Glen Ditchfield,
  339. X  Sam Drake,
  340. X  James P. Dugal,
  341. ***************
  342. *** 2114,2119 ****
  343. --- 2139,2145 ----
  344. X  Andy Fyfe,
  345. X  Jack Goral,
  346. X  Piercarlo "Peter" Grandi,
  347. + Henk Hesselink
  348. X  Jeffrey C Honig,
  349. X  Kurt Horton,
  350. X  Jonathan I. Kamens,
  351. ***************
  352. *** 2120,2136 ****
  353. X  Peter King,
  354. X  Tom Kloos,
  355. X  Casey Leedom,
  356. X  Dave Lewis, 
  357. X  Rick Linck,
  358. X  Soren Lundsgaard,
  359. X  Tad Mannes,
  360. X  Rob McMahon,
  361. ! Chris Metcalf
  362. X  Mark Nagel,
  363. ! Ulf Noren
  364. X  Marius Olafsson,
  365. X  Gene H. Olson,
  366. X  Rick Perry,
  367. X  Eric Putz,
  368. X  Jim Richardson,
  369. X  Michael Richardson,
  370. --- 2146,2165 ----
  371. X  Peter King,
  372. X  Tom Kloos,
  373. X  Casey Leedom,
  374. + Jay Lepreau
  375. X  Dave Lewis, 
  376. X  Rick Linck,
  377. X  Soren Lundsgaard,
  378. X  Tad Mannes,
  379. X  Rob McMahon,
  380. ! Chris Metcalf,
  381. X  Mark Nagel,
  382. ! Ulf Noren,
  383. X  Marius Olafsson,
  384. X  Gene H. Olson,
  385. + Henk P. Penning,
  386. X  Rick Perry,
  387. + Larry Philps,
  388. X  Eric Putz,
  389. X  Jim Richardson,
  390. X  Michael Richardson,
  391. ***************
  392. *** 2138,2146 ****
  393. --- 2167,2180 ----
  394. X  Kim Sanders,
  395. X  Mike Schwartz,
  396. X  Alan Silverstein,
  397. + Lowell Skoog,
  398. + Herr Soeryantono,
  399. + Tim Theisen,
  400. X  Tom Tkacik,
  401. X  Andy Valencia,
  402. X  Adri Verhoef,
  403. + Rick Walker,
  404. + Petri Wessman,
  405. X  and
  406. X  Tim Wilson.
  407. X  .\" end of man page
  408. *** 6.16    1991/06/04 18:57:22
  409. --- psc.doc    1991/09/04 14:28:03
  410. ***************
  411. *** 1,5 ****
  412. X  .\" $Revision $
  413. ! .TH PPNAME 1
  414. X  .SH NAME
  415. X  ppname \- prepare pname files
  416. X  .SH SYNOPSIS
  417. --- 1,5 ----
  418. X  .\" $Revision $
  419. ! .TH PPNAME\ #REVISION#\  1
  420. X  .SH NAME
  421. X  ppname \- prepare pname files
  422. X  .SH SYNOPSIS
  423. *** 6.16    1991/06/04 18:57:22
  424. --- tutorial.sc    1991/09/04 14:28:03
  425. ***************
  426. *** 1,96 ****
  427. X  # This data file was generated by the Spreadsheet Calculator.
  428. X  # You almost certainly shouldn't edit it.
  429. X  
  430. ! define "page5" A89
  431. ! define "page1" A9
  432. ! define "page2" A29
  433. ! define "page3" A49
  434. ! define "page4" A70
  435. ! leftstring A1 = "This is a brief sc tutorial."
  436. ! leftstring A3 = "Cells are named by their column and row number.  For example,"
  437. ! leftstring A4 = "Cell A4"
  438. ! leftstring B4 = "Cell B4"
  439. ! leftstring C4 = "Cell C4"
  440. ! leftstring A5 = "Cell A5"
  441. ! leftstring A6 = "Cell A6"
  442. ! leftstring C6 = "Cell C6"
  443. ! leftstring A7 = "Cells range from A0 to ZZ(some number depending on free memory)."
  444. ! leftstring A8 = "Cells can also be named by the user.  See 'range names' in the manual."
  445. X  leftstring page1 = "You can move the cursor a couple of different ways:"
  446. ! leftstring A11 = "^n, j and the <DOWN> arrow key go down"
  447. ! leftstring A12 = "^p, k and the <UP> arrow key go up"
  448. ! leftstring A13 = "^b, h and the <LEFT> arrow key go left"
  449. ! leftstring A14 = "^f, l and the <RIGHT> arrow key go right"
  450. ! leftstring A15 = "You can go directly to a cell by typing 'g' and the cell name. "
  451. ! leftstring A16 = "'g c6' will take you to cell c6."
  452. ! leftstring A18 = "Cells can contain numbers, formulas, or text."
  453. ! leftstring A19 = "Most of the cells on this page contain text."
  454. ! leftstring C20 = "<Type 'g page2' to continue>"
  455. ! leftstring A22 = "Cell d22 contains text"
  456. ! leftstring D22 = "Text "
  457. ! leftstring A23 = "Cell d23 contains a number"
  458. ! let D23 = 123.34
  459. ! leftstring A24 = "Cell d24 contains a formula"
  460. ! let D24 = D23+88
  461. ! leftstring A26 = "To see what the cell contains, just move the cursor"
  462. ! leftstring A27 = "onto the cell.  The contents will show up on line 1 in the brackets."
  463. X  leftstring page2 = "You can enter data into cells like this:"
  464. ! leftstring B30 = "'<text' enters left justified text."
  465. ! leftstring B31 = "'>text' enters right justified text."
  466. ! leftstring B32 = "'=number' enters a number"
  467. ! leftstring B33 = "'=formula' enters a formula."
  468. ! leftstring A35 = "Try duplicating d22 through d24 in e22 though e24."
  469. ! leftstring A37 = "You erase a cell by typing 'x' with the cursor on the cell."
  470. ! leftstring C40 = "<Type 'g page3' to continue>"
  471. ! leftstring A42 = "Here is a typical use for numbers and formulas:"
  472. ! let A44 = 10.3
  473. ! let B44 = 1877.5
  474. ! let C44 = 234.7
  475. ! let E44 = @sum(A44:C44)
  476. ! let A45 = 44.56
  477. ! let B45 = 44.3
  478. ! let C45 = -3
  479. X  let E45 = @sum(A45:C45)
  480. ! let A46 = 88.74
  481. ! let B46 = 8000
  482. ! let C46 = -9
  483. X  let E46 = @sum(A46:C46)
  484. ! let A47 = 99.2
  485. ! let B47 = -88
  486. ! let C47 = -44.6
  487. X  let E47 = @sum(A47:C47)
  488. ! let page3 = @sum(A44:A47)
  489. ! let B49 = @sum(B44:B47)
  490. ! let C49 = @sum(C44:C47)
  491. ! let E49 = @sum(A44:C47)
  492. ! leftstring A51 = "The data is entered in a44 through c47."
  493. ! leftstring A52 = "Cells a49, b49 and c49 sum their respective columns."
  494. ! leftstring A53 = "Cells e44, e45, e46, and e47 sum their respective rows."
  495. ! leftstring A54 = "Cell E49 is a grand total."
  496. ! leftstring A55 = "Try changing some of the data cells and watch the sums change."
  497. ! leftstring A57 = "You can also edit cells by putting the cursor on the cell and typing:"
  498. ! leftstring B58 = "'e' to edit the numeric portion."
  499. ! leftstring B59 = "'E' to edit the string portion."
  500. ! leftstring C60 = "<Type 'g page4' to continue>"
  501. ! leftstring A62 = "Since you are reading this, you know that you can load "
  502. ! leftstring A63 = "a data base from a file by typing the file name as an"
  503. ! leftstring A64 = "argument to the program.  You can also load or save a "
  504. ! leftstring A65 = "data base using the file commands:"
  505. ! leftstring B67 = "'G file'"
  506. ! leftstring C67 = "Gets the data from an sc file."
  507. ! leftstring B68 = "'P file'"
  508. ! leftstring C68 = "Puts the data from the spreadsheet into a file."
  509. X  leftstring page4 = "Try 'P foo.sc' to write this to the file foo.sc"
  510. ! leftstring A71 = "The Get command erases the current spreadsheet.  "
  511. ! leftstring A72 = "To merge a spreadsheet with the one currently in"
  512. ! leftstring A73 = "the machine, use:"
  513. ! leftstring B75 = "'M file'"
  514. ! leftstring C75 = "Merge the data from a saved sc file."
  515. ! leftstring A77 = "You can also get human readable versions of the data"
  516. ! leftstring A78 = "by using the Write command:"
  517. ! leftstring C80 = "<Type 'g page5' to continue>"
  518. ! leftstring A82 = "Try 'W tut.txt' for a clear text version of the tutorial."
  519. ! leftstring A85 = "This is the end of the tutorial.  We have explored"
  520. ! leftstring A86 = "The basic commands.  Much more detail is available"
  521. ! leftstring A87 = "in the man page."
  522. ! leftstring D91 = "GOOD LUCK!"
  523. --- 1,99 ----
  524. X  # This data file was generated by the Spreadsheet Calculator.
  525. X  # You almost certainly shouldn't edit it.
  526. X  
  527. ! define "page4" A71
  528. ! define "page3" A50
  529. ! define "page2" A30
  530. ! define "page1" A11
  531. ! define "page5" A90
  532. ! leftstring A1 = "This is a brief sc tutorial, best run in a 24-line window."
  533. ! leftstring A2 = "Type 'q' to exit, ^Z to suspend (w/ Job Control)."
  534. ! leftstring A3 = "^G interrupts a command."
  535. ! leftstring A5 = "Cells are named by their column and row number.  For example,"
  536. ! leftstring A6 = "Cell A5"
  537. ! leftstring B6 = "Cell B5"
  538. ! leftstring C6 = "Cell C5"
  539. ! leftstring A7 = "Cell A6"
  540. ! leftstring A8 = "Cell A7"
  541. ! leftstring C8 = "Cell C7"
  542. ! leftstring A9 = "Cells range from A0 to ZZ(some number depending on free memory)."
  543. ! leftstring A10 = "Cells can also be named by the user.  See 'range names' in the manual."
  544. X  leftstring page1 = "You can move the cursor a couple of different ways:"
  545. ! leftstring B12 = "^n, j and the <DOWN> arrow key go down"
  546. ! leftstring B13 = "^p, k and the <UP> arrow key go up"
  547. ! leftstring B14 = "^b, h and the <LEFT> arrow key go left"
  548. ! leftstring B15 = "^f, l and the <RIGHT> arrow key go right"
  549. ! leftstring B16 = "You can go directly to a cell by typing 'g' and the cell name. "
  550. ! leftstring B17 = "'g c6' will take you to cell c6."
  551. ! leftstring A19 = "Cells can contain numbers, formulas, or text."
  552. ! leftstring A20 = "Most of the cells on this page contain text."
  553. ! leftstring C21 = "<Type 'g page2' to continue>"
  554. ! leftstring A23 = "Cell d22 contains text"
  555. ! leftstring D23 = "Text "
  556. ! leftstring A24 = "Cell d23 contains a number"
  557. ! let D24 = 123.34
  558. ! leftstring A25 = "Cell d24 contains a formula"
  559. ! let D25 = D24+88
  560. ! leftstring A27 = "To see what the cell contains, just move the cursor"
  561. ! leftstring A28 = "onto the cell.  The contents will show up on line 1 in the brackets."
  562. X  leftstring page2 = "You can enter data into cells like this:"
  563. ! leftstring B31 = "'<text' enters left justified text."
  564. ! leftstring B32 = "'>text' enters right justified text."
  565. ! leftstring B33 = "'=number' enters a number"
  566. ! leftstring B34 = "'=formula' enters a formula."
  567. ! leftstring A36 = "Try duplicating d22 through d24 in e22 though e24."
  568. ! leftstring A38 = "You erase a cell by typing 'x' with the cursor on the cell."
  569. ! leftstring C41 = "<Type 'g page3' to continue>"
  570. ! leftstring A43 = "Here is a typical use for numbers and formulas:"
  571. ! let A45 = 10.3
  572. ! let B45 = 1877.5
  573. ! let C45 = 234.7
  574. X  let E45 = @sum(A45:C45)
  575. ! let A46 = 44.56
  576. ! let B46 = 44.3
  577. ! let C46 = -3
  578. X  let E46 = @sum(A46:C46)
  579. ! let A47 = 88.74
  580. ! let B47 = 8000
  581. ! let C47 = -9
  582. X  let E47 = @sum(A47:C47)
  583. ! let A48 = 99.2
  584. ! let B48 = -88
  585. ! let C48 = -44.6
  586. ! let E48 = @sum(A48:C48)
  587. ! let page3 = @sum(A45:A48)
  588. ! let B50 = @sum(B45:B48)
  589. ! let C50 = @sum(C45:C48)
  590. ! let E50 = @sum(A45:C48)
  591. ! leftstring A52 = "The data is entered in a44 through c47."
  592. ! leftstring A53 = "Cells a49, b49 and c49 sum their respective columns."
  593. ! leftstring A54 = "Cells e44, e45, e46, and e47 sum their respective rows."
  594. ! leftstring A55 = "Cell E49 is a grand total."
  595. ! leftstring A56 = "Try changing some of the data cells and watch the sums change."
  596. ! leftstring A58 = "You can also edit cells by putting the cursor on the cell and typing:"
  597. ! leftstring B59 = "'e' to edit the numeric portion."
  598. ! leftstring B60 = "'E' to edit the string portion."
  599. ! leftstring C61 = "<Type 'g page4' to continue>"
  600. ! leftstring A63 = "Since you are reading this, you know that you can load "
  601. ! leftstring A64 = "a data base from a file by typing the file name as an"
  602. ! leftstring A65 = "argument to the program.  You can also load or save a "
  603. ! leftstring A66 = "data base using the file commands:"
  604. ! leftstring B68 = "'G file'"
  605. ! leftstring C68 = "Gets the data from an sc file."
  606. ! leftstring B69 = "'P file'"
  607. ! leftstring C69 = "Puts the data from the spreadsheet into a file."
  608. X  leftstring page4 = "Try 'P foo.sc' to write this to the file foo.sc"
  609. ! leftstring A72 = "The Get command erases the current spreadsheet.  "
  610. ! leftstring A73 = "To merge a spreadsheet with the one currently in"
  611. ! leftstring A74 = "the machine, use:"
  612. ! leftstring B76 = "'M file'"
  613. ! leftstring C76 = "Merge the data from a saved sc file."
  614. ! leftstring A78 = "You can also get human readable versions of the data"
  615. ! leftstring A79 = "by using the Write command:"
  616. ! leftstring C81 = "<Type 'g page5' to continue>"
  617. ! leftstring A83 = "Try 'W tut.txt' for a clear text version of the tutorial."
  618. ! leftstring A86 = "This is the end of the tutorial.  We have explored"
  619. ! leftstring A87 = "The basic commands.  Much more detail is available"
  620. ! leftstring A88 = "in the man page."
  621. ! leftstring page5 = "To quit this program, type 'q'."
  622. ! leftstring D92 = "GOOD LUCK!"
  623. *** 6.16    1991/06/04 19:01:32
  624. --- Makefile    1991/09/04 15:14:36
  625. ***************
  626. *** 1,9 ****
  627. ! # Makefile $Revision: 6.16 $
  628. X  #
  629. X  # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  630. X  #    RE_COMP/REGCMP, and DFLT_PAGER. Most of the other things aren't
  631. X  #    normally changed (see the comments with each)
  632. X  # 2) Select the proper machine/compiler/OS section of code
  633. X  # 3) make install
  634. X  # 4) If you have the command 'file' that uses /etc/magic add the line:
  635. X  #    38    string        Spreadsheet    sc file
  636. --- 1,10 ----
  637. ! # Makefile $Revision: 6.17 $
  638. X  #
  639. X  # 1) Select the proper EXDIR (path), MANDIR, MANEXT, LIBDIR, SIGVOID,
  640. X  #    RE_COMP/REGCMP, and DFLT_PAGER. Most of the other things aren't
  641. X  #    normally changed (see the comments with each)
  642. X  # 2) Select the proper machine/compiler/OS section of code
  643. + #    for MS-DOS look for the pattern 'MS-DOS'
  644. X  # 3) make install
  645. X  # 4) If you have the command 'file' that uses /etc/magic add the line:
  646. X  #    38    string        Spreadsheet    sc file
  647. ***************
  648. *** 24,29 ****
  649. --- 25,31 ----
  650. X  #MANEXT=1            # reno
  651. X  MANDIR=/usr/man/manl
  652. X  MANEXT=l
  653. + MANMODE=644
  654. X  
  655. X  # This is where the library file (tutorial) goes.
  656. X  #LIBDIR=/usr/local/share/$(name) # reno
  657. ***************
  658. *** 87,93 ****
  659. --- 89,99 ----
  660. X  SAVE=-DSAVENAME=\"$(NAME).SAVE\"
  661. X  
  662. X  # path to crypt
  663. + # most systems
  664. X  CRYPT=-DCRYPT_PATH=\"/bin/crypt\"
  665. + # BSD
  666. + #CRYPT=-DCRYPT_PATH=\"/usr/bin/crypt\"
  667. + # other people?
  668. X  #CRYPT=CRYPT_PATH=\"/usr/local/bin/crypt\"
  669. X  
  670. X  # flags for lint
  671. ***************
  672. *** 116,127 ****
  673. X  IDLOKBAD=-DIDLOKBAD
  674. X  #IDLOKBAD=
  675. X  
  676. ! # IF you have problems w/ your yacc and don't have, say, bison...
  677. ! # look just below for '### YACC PROBLEMS ###' and reverse the define to
  678. ! # use the included, pre-yacc'd copy. First try below.
  679. X  #YACC=yacc
  680. X  YACC=bison -y
  681. X  
  682. X  #### SYSTEM DEFINES ####
  683. X  
  684. X  # Use this for system AIX V3.1
  685. --- 122,138 ----
  686. X  IDLOKBAD=-DIDLOKBAD
  687. X  #IDLOKBAD=
  688. X  
  689. ! # IF you have problems w/ your yacc try bison, Berkeley yacc, or
  690. ! # some other yacc. Some systems don't allow you to
  691. ! # increase the number of terminals (mostly AT&T), SCO's does though.
  692. X  #YACC=yacc
  693. X  YACC=bison -y
  694. X  
  695. + # Command to use to make temporary copies of some source files.
  696. + LN=ln
  697. + #LN=ln -s
  698. + #LN=cp
  699. + 
  700. X  #### SYSTEM DEFINES ####
  701. X  
  702. X  # Use this for system AIX V3.1
  703. ***************
  704. *** 129,135 ****
  705. X  #LDFLAGS=
  706. X  #LIB=-lm -lPW -lcurses
  707. X  
  708. ! # Use this for system V.2
  709. X  #CFLAGS= -O -DSYSV2 
  710. X  #LDFLAGS=
  711. X  #LIB=-lm -lPW -lcurses
  712. --- 140,146 ----
  713. X  #LDFLAGS=
  714. X  #LIB=-lm -lPW -lcurses
  715. X  
  716. ! # Use this for system V.2 (includes: HP-UX 7.05, UNIXPC)
  717. X  #CFLAGS= -O -DSYSV2 
  718. X  #LDFLAGS=
  719. X  #LIB=-lm -lPW -lcurses
  720. ***************
  721. *** 143,151 ****
  722. X  LIB=-lm -lcurses -lPW
  723. X  # with gcc also use:
  724. X  #CC=gcc
  725. ! #CFLAGS=  -DSYSV3 -O -pipe
  726. ! YACC=bison -y
  727. X  
  728. X  # Use this for system V.4
  729. X  #CFLAGS=  -DSYSV4 -DSYSV3 -O
  730. X  #LDFLAGS= -s
  731. --- 154,163 ----
  732. X  LIB=-lm -lcurses -lPW
  733. X  # with gcc also use:
  734. X  #CC=gcc
  735. ! #CFLAGS=  -DSYSV3 -O -pipe -traditional
  736. ! #YACC=bison -y
  737. X  
  738. + 
  739. X  # Use this for system V.4
  740. X  #CFLAGS=  -DSYSV4 -DSYSV3 -O
  741. X  #LDFLAGS= -s
  742. ***************
  743. *** 227,232 ****
  744. --- 239,255 ----
  745. X  #LIB=-lm -lcurses -lPW -lmalloc -lc_s
  746. X  #YACC=yacc -Sm10000
  747. X  
  748. + # Use this for MS-DOS, Microsoft C 5.1 and NDMAKE
  749. + #CC=cl
  750. + #CFLAGS= -AL -O -Fo$*.o
  751. + #LDFLAGS=/noi /st:0x4000
  752. + #LIB=lcurses
  753. + #YACC=bison -y
  754. + #
  755. + #.SUFFIXES : .o .c
  756. + #.c.o:
  757. + #    $(CC) $(CFLAGS) -c $*.c
  758. + 
  759. X  # All of the source files
  760. X  SRC=Makefile cmds.c crypt.c eres.sed format.c gram.y help.c interp.c \
  761. X      lex.c psc.c range.c sc.c sc.h screen.c sres.sed version.c \
  762. ***************
  763. *** 237,243 ****
  764. X      screen.o version.o vi.o vmtbl.o xmalloc.o
  765. X  
  766. X  # The documents in the Archive
  767. ! DOCS=README CHANGES sc.doc psc.doc tutorial.sc VMS_NOTES
  768. X  
  769. X  all:    $(name) p$(name) $(name)qref
  770. X  
  771. --- 260,266 ----
  772. X      screen.o version.o vi.o vmtbl.o xmalloc.o
  773. X  
  774. X  # The documents in the Archive
  775. ! DOCS=CHANGES README sc.doc psc.doc tutorial.sc VMS_NOTES torev
  776. X  
  777. X  all:    $(name) p$(name) $(name)qref
  778. X  
  779. ***************
  780. *** 244,278 ****
  781. X  $(name):$(PAR)     $(OBJS)
  782. X      $(CC) ${LDFLAGS} ${OBJS} ${LIB} -o $(name)
  783. X  
  784. ! ### YACC PROBLEMS ###
  785. ! # IF you have problems w/ your yacc and don't have, say, bison...
  786. ! # for systems that don't allow you to increase the number of terminals
  787. ! # (mostly AT&T) (this will include a Berkeley yacc built gram.c and
  788. ! # y.tab.h) use:
  789. ! #gram.c:    mygram.c
  790. ! #    cp mygram.c gram.c
  791. ! #y.tab.h:    
  792. ! #    cp myy.tab.h y.tab.h 
  793. ! #
  794. ! # Otherwise (most systems)
  795. X  gram.c:    gram.y
  796. X      $(YACC) -d gram.y; mv y.tab.c gram.c
  797. X  y.tab.h:    gram.y
  798. X  
  799. X  
  800. X  p$(name):    psc.c pvmtbl.o pxmalloc.o
  801. !     $(CC) ${LDFLAGS} -o p$(name) psc.c pvmtbl.o pxmalloc.o ${PSCLIB}
  802. X  
  803. X  qhelp.c: help.c
  804. X      -rm -f qhelp.c
  805. !     ln help.c qhelp.c
  806. X  
  807. ! $(name)qref:    qhelp.c
  808. !     $(CC) $(LDFLAGS) -DQREF -DSCNAME=\"$(name)\" -o $(name)qref qhelp.c
  809. X  
  810. X  pvmtbl.c: vmtbl.c
  811. X      -rm -f pvmtbl.c
  812. !     ln vmtbl.c pvmtbl.c
  813. X  
  814. X  pvmtbl.o: sc.h pvmtbl.c
  815. X      $(CC) ${CFLAGS} -c -DPSC pvmtbl.c
  816. --- 267,301 ----
  817. X  $(name):$(PAR)     $(OBJS)
  818. X      $(CC) ${LDFLAGS} ${OBJS} ${LIB} -o $(name)
  819. X  
  820. ! # Alternative for MS-DOS
  821. ! #$(name):     $(OBJS)
  822. ! #    link ${LDFLAGS} ${OBJS},$(name),,${LIB};
  823. ! 
  824. X  gram.c:    gram.y
  825. X      $(YACC) -d gram.y; mv y.tab.c gram.c
  826. + 
  827. X  y.tab.h:    gram.y
  828. X  
  829. + # Alternative for MS-DOS
  830. + #gram.c:    gram.y
  831. + #    $(YACC) -d gram.y
  832. + #    mv y_tab.c gram.c
  833. + #
  834. + #y_tab.h:    gram.y
  835. X  
  836. X  p$(name):    psc.c pvmtbl.o pxmalloc.o
  837. !     $(CC) $(CFLAGS) ${LDFLAGS} -o p$(name) psc.c pvmtbl.o pxmalloc.o ${PSCLIB}
  838. X  
  839. X  qhelp.c: help.c
  840. X      -rm -f qhelp.c
  841. !     ${LN} help.c qhelp.c
  842. X  
  843. ! $(name)qref:    qhelp.c sc.h
  844. !     $(CC) $(CFLAGS) $(LDFLAGS) -DQREF -DSCNAME=\"$(name)\" -o $(name)qref qhelp.c
  845. X  
  846. X  pvmtbl.c: vmtbl.c
  847. X      -rm -f pvmtbl.c
  848. !     ${LN} vmtbl.c pvmtbl.c
  849. X  
  850. X  pvmtbl.o: sc.h pvmtbl.c
  851. X      $(CC) ${CFLAGS} -c -DPSC pvmtbl.c
  852. ***************
  853. *** 279,324 ****
  854. X  
  855. X  pxmalloc.c: xmalloc.c
  856. X      -rm -f pxmalloc.c
  857. !     ln xmalloc.c pxmalloc.c
  858. X  
  859. ! pxmalloc.o: sc.h pxmalloc.c
  860. !     $(CC) ${CFLAGS} -c -DPSC pxmalloc.c
  861. X  
  862. ! lex.o:    sc.h y.tab.h gram.o lex.c
  863. !     $(CC) ${CFLAGS} ${SIMPLE} ${IEEE_MATH} ${SIGVOID} -c lex.c
  864. X  
  865. ! sc.o:    sc.h sc.c
  866. !     $(CC) ${CFLAGS} ${DFLT_PAGER} ${SIGVOID} ${SAVE} -c sc.c
  867. X  
  868. ! screen.o:    sc.h screen.c
  869. !     $(CC) ${CFLAGS} ${BROKENCURSES} ${INTERNATIONAL} ${SIGVOID} -c screen.c
  870. X  
  871. X  interp.o:    interp.c sc.h
  872. X      $(CC) ${CFLAGS} ${IEEE_MATH} ${SIGVOID} ${RINT} ${RE_COMP} ${REGCMP} -c interp.c
  873. X  
  874. ! gram.o:    sc.h y.tab.h
  875. X  
  876. ! cmds.o: cmds.c sc.h
  877. !     $(CC) ${CFLAGS} ${DOBACKUPS} -c cmds.c
  878. X  
  879. ! crypt.o: crypt.c sc.h
  880. !     $(CC) ${CFLAGS} ${CRYPT} ${DOBACKUPS} -c crypt.c
  881. X  
  882. X  range.o: range.c sc.h
  883. X  
  884. ! help.o: help.c sc.h
  885. X  
  886. ! format.o: format.c
  887. X  
  888. X  vi.o: vi.c sc.h
  889. X  
  890. ! gram.o:    sc.h y.tab.h gram.c
  891. !     $(CC) ${CFLAGS} -c gram.c
  892. !     sed<gram.y >experres.h -f eres.sed;sed < gram.y > statres.h -f sres.sed
  893. X  
  894. X  clean:
  895. X      rm -f *.o *res.h y.tab.h $(name) p$(name) debug core gram.c $(name).1 \
  896. !     $(name).man p$(name).man p$(name).1 y.output $(name)qref
  897. X  
  898. X  shar: ${SRC} ${DOCS}
  899. X      shar -c -m 64000 -f shar ${DOCS} ${SRC}
  900. --- 302,351 ----
  901. X  
  902. X  pxmalloc.c: xmalloc.c
  903. X      -rm -f pxmalloc.c
  904. !     ${LN} xmalloc.c pxmalloc.c
  905. X  
  906. ! # Objects
  907. X  
  908. ! cmds.o: cmds.c sc.h
  909. !     $(CC) ${CFLAGS} ${DOBACKUPS} -c cmds.c
  910. X  
  911. ! crypt.o: crypt.c sc.h
  912. !     $(CC) ${CFLAGS} ${CRYPT} ${DOBACKUPS} -c crypt.c
  913. X  
  914. ! format.o: format.c
  915. X  
  916. + help.o: help.c sc.h
  917. + 
  918. X  interp.o:    interp.c sc.h
  919. X      $(CC) ${CFLAGS} ${IEEE_MATH} ${SIGVOID} ${RINT} ${RE_COMP} ${REGCMP} -c interp.c
  920. X  
  921. ! gram.o:    sc.h y.tab.h gram.c
  922. !     $(CC) ${CFLAGS} -c gram.c
  923. !     sed < gram.y > experres.h -f eres.sed
  924. !     sed < gram.y > statres.h -f sres.sed
  925. X  
  926. ! lex.o:    sc.h y.tab.h gram.o lex.c
  927. !     $(CC) ${CFLAGS} ${SIMPLE} ${IEEE_MATH} ${SIGVOID} -c lex.c
  928. X  
  929. ! pxmalloc.o: sc.h pxmalloc.c
  930. !     $(CC) ${CFLAGS} -c -DPSC pxmalloc.c
  931. X  
  932. X  range.o: range.c sc.h
  933. X  
  934. ! sc.o:    sc.h sc.c
  935. !     $(CC) ${CFLAGS} ${DFLT_PAGER} ${SIGVOID} ${SAVE} -c sc.c
  936. X  
  937. ! screen.o:    sc.h screen.c
  938. !     $(CC) ${CFLAGS} ${BROKENCURSES} ${IDLOKBAD} ${INTERNATIONAL} ${SIGVOID} -c screen.c
  939. X  
  940. X  vi.o: vi.c sc.h
  941. X  
  942. ! # other stuff
  943. X  
  944. X  clean:
  945. X      rm -f *.o *res.h y.tab.h $(name) p$(name) debug core gram.c $(name).1 \
  946. !     $(name).man p$(name).man p$(name).1 y.output $(name)qref \
  947. !     pxmalloc.c pvmtbl.c qhelp.c y_tab.h
  948. X  
  949. X  shar: ${SRC} ${DOCS}
  950. X      shar -c -m 64000 -f shar ${DOCS} ${SRC}
  951. ***************
  952. *** 347,354 ****
  953. X      prc sc.h gram.y sc.c lex.c interp.c cmds.c crypt.c | lpr
  954. X  
  955. X  $(name).1:    sc.doc
  956. !     sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  957. !        -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  958. X  
  959. X  $(name).man:    $(name).1
  960. X      nroff -man $(name).1 > $(name).man
  961. --- 374,386 ----
  962. X      prc sc.h gram.y sc.c lex.c interp.c cmds.c crypt.c | lpr
  963. X  
  964. X  $(name).1:    sc.doc
  965. !     name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev sc.doc >  $(name).1
  966. ! #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  967. ! #       -e s%#LIBDIR#%$(LIBDIR)%g sc.doc >  $(name).1
  968. ! #    REVISION=`sed -e '/Revision/!D' -e 's/.*$Revision: 6.17 $(
  969. ! #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g \
  970. ! #        -e s%#LIBDIR#%$(LIBDIR)%g \
  971. ! #        -e 's/#REVISION#/$(REVISION)/' sc.doc >  $(name).1
  972. X  
  973. X  $(name).man:    $(name).1
  974. X      nroff -man $(name).1 > $(name).man
  975. ***************
  976. *** 357,369 ****
  977. X      itpf -x -Pim2 -man $(name).1
  978. X  
  979. X  p$(name).1:    psc.doc
  980. !     sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g psc.doc >  p$(name).1
  981. X  
  982. X  p$(name).man:    p$(name).1
  983. X      nroff -man p$(name).1 > p$(name).man
  984. X  
  985. X  install: $(EXDIR)/$(name) $(EXDIR)/$(name)qref $(EXDIR)/p$(name) \
  986. !      $(LIBDIR)/tutorial $(MANDIR)/$(name).$(MANEXT)
  987. X  
  988. X  $(EXDIR)/$(name): $(name)
  989. X      cp $(name) $(EXDIR)
  990. --- 389,403 ----
  991. X      itpf -x -Pim2 -man $(name).1
  992. X  
  993. X  p$(name).1:    psc.doc
  994. !     name=$(name) NAME=$(NAME) LIBDIR=$(LIBDIR) sh torev psc.doc > p$(name).1
  995. ! #    sed -e s/pname/$(name)/g -e s/PNAME/$(NAME)/g psc.doc >  p$(name).1
  996. X  
  997. X  p$(name).man:    p$(name).1
  998. X      nroff -man p$(name).1 > p$(name).man
  999. X  
  1000. X  install: $(EXDIR)/$(name) $(EXDIR)/$(name)qref $(EXDIR)/p$(name) \
  1001. !      $(LIBDIR)/tutorial \
  1002. !      $(MANDIR)/$(name).$(MANEXT) $(MANDIR)/p$(name).$(MANEXT)
  1003. X  
  1004. X  $(EXDIR)/$(name): $(name)
  1005. X      cp $(name) $(EXDIR)
  1006. ***************
  1007. *** 379,384 ****
  1008. --- 413,419 ----
  1009. X  
  1010. X  $(LIBDIR)/tutorial: tutorial.sc $(LIBDIR)
  1011. X      cp tutorial.sc $(LIBDIR)/tutorial.$(name)
  1012. +     chmod $(MANMODE) $(LIBDIR)/tutorial.$(name)
  1013. X  
  1014. X  $(LIBDIR):
  1015. X      mkdir $(LIBDIR)
  1016. ***************
  1017. *** 385,395 ****
  1018. X  
  1019. X  $(MANDIR)/$(name).$(MANEXT): $(name).1
  1020. X      cp $(name).1 $(MANDIR)/$(name).$(MANEXT)
  1021. X  
  1022. X  diffs: ${SRC}
  1023. !     for i in ${SRC} ${DOCS} ;\
  1024. X          do \
  1025. !         rcsdiff -c -r6.11 $$i ;\
  1026. X          done
  1027. X  
  1028. X  # THA 10/14/90  Added code to make a patchfile
  1029. --- 420,435 ----
  1030. X  
  1031. X  $(MANDIR)/$(name).$(MANEXT): $(name).1
  1032. X      cp $(name).1 $(MANDIR)/$(name).$(MANEXT)
  1033. +     chmod $(MANMODE) $(MANDIR)/$(name).$(MANEXT)
  1034. + 
  1035. + $(MANDIR)/p$(name).$(MANEXT): p$(name).1
  1036. +     cp p$(name).1 $(MANDIR)/p$(name).$(MANEXT)
  1037. +     chmod $(MANMODE) $(MANDIR)/p$(name).$(MANEXT)
  1038. X  
  1039. X  diffs: ${SRC}
  1040. !     for i in ${DOCS} ${SRC}  ;\
  1041. X          do \
  1042. !         rcsdiff -c -r6.16 $$i ;\
  1043. X          done
  1044. X  
  1045. X  # THA 10/14/90  Added code to make a patchfile
  1046. ***************
  1047. *** 399,401 ****
  1048. --- 439,444 ----
  1049. X          do \
  1050. X          diffc $$i /users/toma/sc/sc6.12/$$i >> patchfile ;\
  1051. X          done
  1052. + 
  1053. + files:
  1054. +     @find $(DOCS) $(SRC) -print
  1055. *** 6.16    1991/06/04 18:57:22
  1056. --- cmds.c    1991/09/04 14:28:06
  1057. ***************
  1058. *** 7,13 ****
  1059. X   *
  1060. X   *              More mods Robert Bond, 12/86
  1061. X   *
  1062. !  *        $Revision: 6.16 $
  1063. X   */
  1064. X  
  1065. X  #include <sys/types.h>
  1066. --- 7,13 ----
  1067. X   *
  1068. X   *              More mods Robert Bond, 12/86
  1069. X   *
  1070. !  *        $Revision: 6.17 $
  1071. X   */
  1072. X  
  1073. X  #include <sys/types.h>
  1074. ***************
  1075. *** 118,128 ****
  1076. X  deleterow(arg)
  1077. X  register int arg;
  1078. X  {
  1079. !     flush_saved();
  1080. !     erase_area(currow, 0, currow + arg - 1, maxcol);
  1081. !     currow += arg;
  1082. !     while (--arg>=0) closerow (--currow);
  1083. !     sync_refs();
  1084. X  }
  1085. X  
  1086. X  void
  1087. --- 118,132 ----
  1088. X  deleterow(arg)
  1089. X  register int arg;
  1090. X  {
  1091. !     if (any_locked_cells(currow, 0, currow + arg - 1, maxcol))
  1092. !     error("Locked cells encountered. Nothing changed");
  1093. !     else {
  1094. !         flush_saved();
  1095. !         erase_area(currow, 0, currow + arg - 1, maxcol);
  1096. !         currow += arg;
  1097. !         while (--arg>=0) closerow (--currow);
  1098. !         sync_refs();
  1099. !     }
  1100. X  }
  1101. X  
  1102. X  void
  1103. ***************
  1104. *** 149,155 ****
  1105. X      for (r = sr; r <= er; r++) {
  1106. X      for (c = sc; c <= ec; c++) {
  1107. X          pp = ATBL(tbl, r, c);
  1108. !         if (*pp) {
  1109. X          free_ent(*pp);
  1110. X          *pp = (struct ent *)0;
  1111. X          }
  1112. --- 153,159 ----
  1113. X      for (r = sr; r <= er; r++) {
  1114. X      for (c = sc; c <= ec; c++) {
  1115. X          pp = ATBL(tbl, r, c);
  1116. !         if (*pp && !((*pp)->flags&is_locked)) {
  1117. X          free_ent(*pp);
  1118. X          *pp = (struct ent *)0;
  1119. X          }
  1120. ***************
  1121. *** 185,190 ****
  1122. --- 189,198 ----
  1123. X      for (r = sr; r <= er; r++) {
  1124. X      for (c = sc; c <= ec; c++) {
  1125. X          p = *ATBL(tbl, r, c);
  1126. +         if (p->flags&is_locked) {
  1127. +         error(" Cell %s%d is locked", coltoa(c), r);
  1128. +         continue;
  1129. +         }
  1130. X          if (p && p->expr) {
  1131. X          efree(p->expr);
  1132. X          p->expr = (struct enode *)0;
  1133. ***************
  1134. *** 470,475 ****
  1135. --- 478,487 ----
  1136. X      error(buf);
  1137. X      return;
  1138. X      }
  1139. +     if (any_locked_cells(0, curcol, maxrow, curcol + numcol - 1)) {
  1140. +     error("Locked cells encountered. Nothing changed");
  1141. +     return;
  1142. +     }
  1143. X      flush_saved();
  1144. X      erase_area(0, curcol, maxrow, curcol + numcol - 1);
  1145. X      sync_refs();
  1146. ***************
  1147. *** 619,625 ****
  1148. X      }
  1149. X  
  1150. X      for(i = c1; i<=c2; i++)
  1151. !     fwidth[i] = w, precision[i] = p, realfmt[i] = r;
  1152. X  
  1153. X      FullUpdate++;
  1154. X      modflg++;
  1155. --- 631,637 ----
  1156. X      }
  1157. X  
  1158. X      for(i = c1; i<=c2; i++)
  1159. !         fwidth[i] = w, precision[i] = p, realfmt[i] = r;
  1160. X  
  1161. X      FullUpdate++;
  1162. X      modflg++;
  1163. ***************
  1164. *** 1173,1178 ****
  1165. --- 1185,1194 ----
  1166. X      return(fopen(efname, "w"));
  1167. X      }
  1168. X  
  1169. + #if defined(MSDOS)
  1170. +     error("Piping not available under MS-DOS\n");
  1171. +     return(0);
  1172. + #else
  1173. X      fname++;                /* Skip | */
  1174. X      if ( pipe (pipefd) < 0) {
  1175. X      error("Can't make pipe to child");
  1176. ***************
  1177. *** 1208,1213 ****
  1178. --- 1224,1230 ----
  1179. X      }
  1180. X  #endif /* VMS */
  1181. X      return(f);
  1182. + #endif /* MSDOS */
  1183. X  }
  1184. X  
  1185. X  /* close a file opened by openout(), if process wait for return */
  1186. ***************
  1187. *** 1219,1224 ****
  1188. --- 1236,1242 ----
  1189. X      int temp;
  1190. X  
  1191. X      (void) fclose (f);
  1192. + #if !defined(MSDOS)
  1193. X      if (pid) {
  1194. X           while (pid != wait(&temp)) /**/;
  1195. X       (void) printf("Press RETURN to continue ");
  1196. ***************
  1197. *** 1226,1231 ****
  1198. --- 1244,1250 ----
  1199. X       (void) nmgetch();
  1200. X       goraw();
  1201. X      }
  1202. + #endif /* MSDOS */
  1203. X  }
  1204. X  
  1205. X  void
  1206. ***************
  1207. *** 1295,1300 ****
  1208. --- 1314,1322 ----
  1209. X              editfmt (r, c);
  1210. X              (void) fprintf (f, "%s\n",line);
  1211. X          }
  1212. +         if ((*pp)->flags&is_locked)
  1213. +             (void) fprintf(f, "lock %s%d\n", coltoa((*pp)->col),
  1214. +                              (*pp)->row) ;
  1215. X          }
  1216. X      }
  1217. X      if (rndinfinity)
  1218. ***************
  1219. *** 1310,1316 ****
  1220. X      char save[PATHLEN];
  1221. X      int pid;
  1222. X  
  1223. ! #ifndef VMS
  1224. X      if (Crypt) {
  1225. X      return (cwritefile(fname, r0, c0, rn, cn));
  1226. X      }
  1227. --- 1332,1338 ----
  1228. X      char save[PATHLEN];
  1229. X      int pid;
  1230. X  
  1231. ! #if !defined(VMS) && !defined(MSDOS)
  1232. X      if (Crypt) {
  1233. X      return (cwritefile(fname, r0, c0, rn, cn));
  1234. X      }
  1235. ***************
  1236. *** 1360,1366 ****
  1237. X          (void) strcpy(save,fname);
  1238. X      }
  1239. X  
  1240. ! #ifndef VMS
  1241. X      if (Crypt)  {
  1242. X      creadfile(save, eraseflg);
  1243. X      return;
  1244. --- 1382,1388 ----
  1245. X          (void) strcpy(save,fname);
  1246. X      }
  1247. X  
  1248. ! #if !defined(VMS) && !defined(MSDOS)
  1249. X      if (Crypt)  {
  1250. X      creadfile(save, eraseflg);
  1251. X      return;
  1252. ***************
  1253. *** 1559,1564 ****
  1254. --- 1581,1587 ----
  1255. X      if (e == (struct enode *)0)
  1256. X      return NUM;
  1257. X      switch (e->op) {
  1258. +     case UPPER: case LOWER: case CAPITAL:
  1259. X      case O_SCONST: case '#': case DATE: case FMT: case STINDEX:
  1260. X      case EXT: case SVAL: case SUBSTR:
  1261. X          return (STR);
  1262. ***************
  1263. *** 1610,1616 ****
  1264. --- 1633,1641 ----
  1265. X  }
  1266. X  
  1267. X  /* expand a ~ in a path to your home directory */
  1268. + #if !defined(MSDOS)
  1269. X  #include <pwd.h>
  1270. + #endif
  1271. X  char    *
  1272. X  findhome(path)
  1273. X  char    *path;
  1274. ***************
  1275. *** 1631,1636 ****
  1276. --- 1656,1662 ----
  1277. X          if ((*pathptr == '/') || (*pathptr == '\0'))
  1278. X          {    strcpy(tmppath, HomeDir);
  1279. X          }
  1280. + #if !defined(MSDOS)
  1281. X          else
  1282. X          {    struct    passwd *pwent;
  1283. X              extern    struct    passwd *getpwnam();
  1284. ***************
  1285. *** 1647,1653 ****
  1286. X              }
  1287. X              strcpy(tmppath, pwent->pw_dir);
  1288. X          }
  1289. ! 
  1290. X          strcat(tmppath, pathptr);
  1291. X          strcpy(path, tmppath);
  1292. X      }
  1293. --- 1673,1679 ----
  1294. X              }
  1295. X              strcpy(tmppath, pwent->pw_dir);
  1296. X          }
  1297. ! #endif
  1298. X          strcat(tmppath, pathptr);
  1299. X          strcpy(path, tmppath);
  1300. X      }
  1301. *** 6.16    1991/06/04 18:57:22
  1302. --- crypt.c    1991/09/04 14:28:07
  1303. ***************
  1304. *** 2,8 ****
  1305. X   * Encryption utilites
  1306. X   * Bradley Williams    
  1307. X   * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  1308. !  * $Revision: 6.16 $
  1309. X   */
  1310. X  
  1311. X  #include <stdio.h>
  1312. --- 2,8 ----
  1313. X   * Encryption utilites
  1314. X   * Bradley Williams    
  1315. X   * {allegra,ihnp4,uiucdcs,ctvax}!convex!williams
  1316. !  * $Revision: 6.17 $
  1317. X   */
  1318. X  
  1319. X  #include <stdio.h>
  1320. ***************
  1321. *** 66,72 ****
  1322. X      (void) dup (pipefd[1]);          /* connect to pipe */
  1323. X      (void) fprintf (stderr, " ");
  1324. X      (void) execl (CRYPT_PATH, "crypt", KeyWord, 0);
  1325. ! 
  1326. X      exit (-127);
  1327. X      }
  1328. X      else                  /* else parent */
  1329. --- 66,73 ----
  1330. X      (void) dup (pipefd[1]);          /* connect to pipe */
  1331. X      (void) fprintf (stderr, " ");
  1332. X      (void) execl (CRYPT_PATH, "crypt", KeyWord, 0);
  1333. !     (void) fprintf (stderr, "execl(%s, \"crypt\", %s, 0) in creadfile() failed",
  1334. !             CRYPT_PATH, KeyWord);
  1335. X      exit (-127);
  1336. X      }
  1337. X      else                  /* else parent */
  1338. ***************
  1339. *** 158,163 ****
  1340. --- 159,166 ----
  1341. X      (void) dup (fildes);              /* standard out to file */
  1342. X      (void) fprintf (stderr, " ");
  1343. X      (void) execl (CRYPT_PATH, "crypt", KeyWord, 0);
  1344. +     (void) fprintf (stderr, "execl(%s, \"crypt\", %s, 0) in cwritefile() failed",
  1345. +             CRYPT_PATH, KeyWord);
  1346. X      exit (-127);
  1347. X      }
  1348. X      else                  /* else parent */
  1349. *** 6.16    1991/06/04 18:57:22
  1350. --- format.c    1991/09/04 14:28:08
  1351. ***************
  1352. *** 3,9 ****
  1353. X   * Mark Nagel <nagel@ics.uci.edu>
  1354. X   * 20 July 1989
  1355. X   *
  1356. !  * $Revision: 6.16 $
  1357. X   *
  1358. X   * bool
  1359. X   * format(fmt, num, buf, buflen)
  1360. --- 3,9 ----
  1361. X   * Mark Nagel <nagel@ics.uci.edu>
  1362. X   * 20 July 1989
  1363. X   *
  1364. !  * $Revision: 6.17 $
  1365. X   *
  1366. X   * bool
  1367. X   * format(fmt, num, buf, buflen)
  1368. *** 6.16    1991/06/04 18:57:22
  1369. --- gram.y    1991/09/04 14:28:09
  1370. ***************
  1371. *** 9,15 ****
  1372. X   *
  1373. X   *        More mods by Alan Silverstein, 3/88, see list of changes.
  1374. X   *
  1375. !  *        $Revision: 6.16 $
  1376. X   */
  1377. X  
  1378. X  
  1379. --- 9,15 ----
  1380. X   *
  1381. X   *        More mods by Alan Silverstein, 3/88, see list of changes.
  1382. X   *
  1383. !  *        $Revision: 6.17 $
  1384. X   */
  1385. X  
  1386. X  
  1387. ***************
  1388. *** 60,65 ****
  1389. --- 60,67 ----
  1390. X  %token S_SHOW
  1391. X  %token S_ERASE
  1392. X  %token S_FILL
  1393. + %token S_LOCK
  1394. + %token S_UNLOCK
  1395. X  %token S_GOTO
  1396. X  %token S_DEFINE
  1397. X  %token S_UNDEFINE
  1398. ***************
  1399. *** 118,123 ****
  1400. --- 120,128 ----
  1401. X  %token K_TTS
  1402. X  %token K_FMT
  1403. X  %token K_SUBSTR
  1404. + %token K_UPPER
  1405. + %token K_LOWER
  1406. + %token K_CAPITAL
  1407. X  %token K_STON
  1408. X  %token K_EQS
  1409. X  %token K_EXT
  1410. ***************
  1411. *** 236,241 ****
  1412. --- 241,256 ----
  1413. X                  { fill($2.left.vp, $2.right.vp, $3, $4); }
  1414. X      |    S_FMT var_or_range STRING
  1415. X                  { format_cell($2.left.vp, $2.right.vp, $3); }
  1416. +     |    S_LOCK       
  1417. +                     { lock_cells(lookat(showsr, showsc),
  1418. +                         lookat(currow, curcol)); }
  1419. +     |    S_LOCK var_or_range
  1420. +                 { lock_cells($2.left.vp, $2.right.vp); }
  1421. +     |    S_UNLOCK       
  1422. +                     { unlock_cells(lookat(showsr, showsc),
  1423. +                         lookat(currow, curcol)); }
  1424. +     |    S_UNLOCK var_or_range
  1425. +                 { unlock_cells($2.left.vp, $2.right.vp); }
  1426. X      |    S_GOTO var_or_range {moveto($2.left.vp->row, $2.left.vp->col);}
  1427. X      |       S_GOTO num        { num_search($2, 0); }
  1428. X      |       S_GOTO errlist
  1429. ***************
  1430. *** 320,325 ****
  1431. --- 335,343 ----
  1432. X      | '@' K_EQS '(' e ',' e ')'    { $$ = new (EQS, $4, $6); }
  1433. X      | '@' K_DATE '(' e ')'        { $$ = new(DATE, ENULL, $4); }
  1434. X      | '@' K_FMT  '(' e ',' e ')'    { $$ = new(FMT, $4, $6); }
  1435. +     | '@' K_UPPER '(' e ')'        { $$ = new(UPPER, ENULL, $4); }
  1436. +     | '@' K_LOWER '(' e ')'        { $$ = new(LOWER, ENULL, $4); }
  1437. +     | '@' K_CAPITAL '(' e ')'    { $$ = new(CAPITAL, ENULL, $4); }
  1438. X      | '@' K_INDEX  '(' e ',' var_or_range ')'
  1439. X           { $$ = new(INDEX, $4, new_range(REDUCE | INDEX, $6)); }
  1440. X      | '@' K_LOOKUP  '(' e ',' var_or_range ')'
  1441. ***************
  1442. *** 343,348 ****
  1443. --- 361,367 ----
  1444. X      |    NUMBER        { $$ = new_const(O_CONST, (double) $1); }
  1445. X      |    FNUMBER        { $$ = new_const(O_CONST, $1); }
  1446. X      |    K_PI { $$ = new_const(O_CONST, (double)3.14159265358979323846); }
  1447. +     | '@'   K_PI { $$ = new_const(O_CONST, (double)3.14159265358979323846); }
  1448. X      |    STRING            { $$ = new_str($1); }
  1449. X      |    '~' term    { $$ = new ('~', ENULL, $2); }
  1450. X      |    '!' term    { $$ = new ('~', ENULL, $2); }
  1451. ***************
  1452. *** 367,372 ****
  1453. --- 386,392 ----
  1454. X      |    e '|' e        { $$ = new ('|', $1, $3); }
  1455. X      |    e '<' '=' e    { $$ = new ('~', ENULL, new ('>', $1, $4)); }
  1456. X      |    e '!' '=' e    { $$ = new ('~', ENULL, new ('=', $1, $4)); }
  1457. +     |    e '<' '>' e    { $$ = new ('~', ENULL, new ('=', $1, $4)); }
  1458. X      |    e '>' '=' e    { $$ = new ('~', ENULL, new ('<', $1, $4)); }
  1459. X      |    e '#' e        { $$ = new ('#', $1, $3); }
  1460. X      ;
  1461. *** 6.16    1991/06/04 18:57:22
  1462. --- help.c    1991/09/04 14:57:06
  1463. ***************
  1464. *** 2,13 ****
  1465. X   * Help functions for sc 
  1466. X   * R. Bond, 1988
  1467. X   * J. Buhrt 1990
  1468. !  * $Revision: 6.16 $
  1469. X   */
  1470. X  
  1471. X  #ifdef QREF
  1472. X  #include <stdio.h>
  1473. ! char    *header = " Quick Reference\n\n$Revision: 6.16 $";
  1474. X  #else
  1475. X  #include <curses.h>
  1476. X  #include "sc.h"
  1477. --- 2,13 ----
  1478. X   * Help functions for sc 
  1479. X   * R. Bond, 1988
  1480. X   * J. Buhrt 1990
  1481. !  * $Revision: 6.17 $
  1482. X   */
  1483. X  
  1484. X  #ifdef QREF
  1485. X  #include <stdio.h>
  1486. ! char    *header = " Quick Reference\n\n$Revision: 6.17 $";
  1487. X  #else
  1488. X  #include <curses.h>
  1489. X  #include "sc.h"
  1490. ***************
  1491. *** 203,208 ****
  1492. --- 203,210 ----
  1493. X  "     /d   Assign a name to a cell or a range of cells.  Give the",
  1494. X  "          the name, surrounded by quotes, and either a cell name such",
  1495. X  "          as ``A10'' or a range such as ``a1:b20''.",
  1496. + "     /l   Locks a cell or a range of cells, i.e makes it unchangeable.",
  1497. + "     /U   Unlocks a locked cell, i.e makes it changeable.",
  1498. X  "     /s   Shows the currently defined range names.  Pipe output to",
  1499. X  "          sort, then to less.",
  1500. X  "     /u   Use this command to undefine a previously defined range name.",
  1501. ***************
  1502. *** 321,327 ****
  1503. X  char *stringf[] = {
  1504. X  " ",
  1505. X  " M: String functions:",
  1506. - " ",
  1507. X  "     #                 Concatenate strings.  For example, the",
  1508. X  "                       string expression ``A0 # \"zy dog\"'' yields",
  1509. X  "                       ``the lazy dog'' if A0 is ``the la''.",
  1510. --- 323,328 ----
  1511. ***************
  1512. *** 338,344 ****
  1513. X  "                       to the command line as an argument.  @ext yields",
  1514. X  "                       a string: the first line printed to standard",
  1515. X  "                       output by the command.",
  1516. ! "     @coltoa(e)        Return a column letter(s) from the passed number",
  1517. X  "     String expressions are made up of constant strings (characters",
  1518. X  "     surrounded by quotes), variables, and string functions.",
  1519. X  (char *)0
  1520. --- 339,347 ----
  1521. X  "                       to the command line as an argument.  @ext yields",
  1522. X  "                       a string: the first line printed to standard",
  1523. X  "                       output by the command.",
  1524. ! "     @coltoa(e)        Return the column letter(s) from the passed number",
  1525. ! "     @upper(e) @lower(e)   Return the string in upper/lower case",
  1526. ! "     @capital(e)       Return the string with words in upper case",
  1527. X  "     String expressions are made up of constant strings (characters",
  1528. X  "     surrounded by quotes), variables, and string functions.",
  1529. X  (char *)0
  1530. *** 6.16    1991/06/04 18:55:36
  1531. --- interp.c    1991/09/04 14:28:13
  1532. ***************
  1533. *** 7,13 ****
  1534. X   *
  1535. X   *              More mods Robert Bond, 12/86
  1536. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1537. !  *        $Revision: 6.16 $
  1538. X   */
  1539. X  
  1540. X  #define DEBUGDTS 1        /* REMOVE ME */
  1541. --- 7,13 ----
  1542. X   *
  1543. X   *              More mods Robert Bond, 12/86
  1544. X   *        More mods by Alan Silverstein, 3-4/88, see list of changes.
  1545. !  *        $Revision: 6.17 $
  1546. X   */
  1547. X  
  1548. X  #define DEBUGDTS 1        /* REMOVE ME */
  1549. ***************
  1550. *** 25,30 ****
  1551. --- 25,31 ----
  1552. X  #include <signal.h>
  1553. X  #include <setjmp.h>
  1554. X  #include <stdio.h>
  1555. + #include <ctype.h>
  1556. X  
  1557. X  extern int errno;        /* set by math functions */
  1558. X  #ifdef BSD42
  1559. ***************
  1560. *** 740,746 ****
  1561. X              num = eval(e->e.o.left);
  1562. X              denom = eval(e->e.o.right);
  1563. X              if (denom)
  1564. ! /*            if (1)*/
  1565. X                  return(num/denom);
  1566. X              else
  1567. X              {    cellerror = CELLERROR;
  1568. --- 741,747 ----
  1569. X              num = eval(e->e.o.left);
  1570. X              denom = eval(e->e.o.right);
  1571. X              if (denom)
  1572. ! /*            if (1)    /* to test num div 0 */
  1573. X                  return(num/denom);
  1574. X              else
  1575. X              {    cellerror = CELLERROR;
  1576. ***************
  1577. *** 1022,1028 ****
  1578. X   * written to files, etc.
  1579. X   */
  1580. X  
  1581. ! #ifdef VMS
  1582. X  char *
  1583. X  doext(command, value)
  1584. X  char *command;
  1585. --- 1023,1029 ----
  1586. X   * written to files, etc.
  1587. X   */
  1588. X  
  1589. ! #if defined(VMS) || defined(MSDOS)
  1590. X  char *
  1591. X  doext(command, value)
  1592. X  char *command;
  1593. ***************
  1594. *** 1029,1035 ****
  1595. X  double value;
  1596. X  {
  1597. X      error("Warning: External functions unavailable on VMS");
  1598. !     cellerror = CELLERROR    /* not sure if this should be a cellerror */
  1599. X      if (command)
  1600. X      xfree(command);
  1601. X      return (strcpy (xmalloc((unsigned) 1), "\0"));
  1602. --- 1030,1036 ----
  1603. X  double value;
  1604. X  {
  1605. X      error("Warning: External functions unavailable on VMS");
  1606. !     cellerror = CELLERROR;    /* not sure if this should be a cellerror */
  1607. X      if (command)
  1608. X      xfree(command);
  1609. X      return (strcpy (xmalloc((unsigned) 1), "\0"));
  1610. ***************
  1611. *** 1157,1162 ****
  1612. --- 1158,1223 ----
  1613. X      return(p);
  1614. X  }
  1615. X  
  1616. + /*
  1617. +  * character casing: make upper case, make lower case
  1618. +  */
  1619. + 
  1620. + char *
  1621. + docase( acase, s)
  1622. + int acase;
  1623. + char *s;
  1624. + {
  1625. +     char *p = s;
  1626. + 
  1627. +     if (s == NULL)
  1628. +     return(NULL);
  1629. + 
  1630. +     if( acase == UPPER ) {
  1631. +         while( *p != '\0' ) {
  1632. +            if( islower(*p) )
  1633. +         *p = toupper(*p);
  1634. +        p++;
  1635. +     }
  1636. +     }
  1637. +     else if ( acase == LOWER ) {
  1638. +     while( *p != '\0' ) {
  1639. +         if (isupper(*p))
  1640. +         *p = tolower(*p);
  1641. +         p++;
  1642. +     }
  1643. +     }
  1644. +     return (s);
  1645. + }
  1646. + 
  1647. + /*
  1648. +  * make proper capitals of every word in a string
  1649. +  */
  1650. + 
  1651. + char *
  1652. + docapital( s )
  1653. + char *s;
  1654. + {
  1655. +     char *p;
  1656. +     int skip = 1;
  1657. + 
  1658. +     if (s == NULL)
  1659. +     return(NULL);
  1660. +     for (p = s; *p != '\0'; p++) {
  1661. +     if (!isalnum(*p))
  1662. +         skip = 1;
  1663. +     else
  1664. +     if (skip == 1) {
  1665. +         skip = 0;
  1666. +         if (islower(*p))
  1667. +             *p = toupper(*p);
  1668. +     }
  1669. +     else    /* if the string was all upper before */
  1670. +     if (isupper(*p))
  1671. +         *p = tolower(*p);
  1672. +     }
  1673. +     return(s);
  1674. + }
  1675. + 
  1676. X  char *
  1677. X  seval(se)
  1678. X  register struct enode *se;
  1679. ***************
  1680. *** 1185,1190 ****
  1681. --- 1246,1254 ----
  1682. X                           : seval(se->e.o.right->e.o.right));
  1683. X      case DATE:   return(dodate((long)(eval(se->e.o.right))));
  1684. X      case FMT:    return(dofmt(seval(se->e.o.left), eval(se->e.o.right)));
  1685. +     case UPPER:  return(docase(UPPER, seval(se->e.o.right)));
  1686. +     case LOWER:  return(docase(LOWER, seval(se->e.o.right)));
  1687. +     case CAPITAL:return(docapital(seval(se->e.o.right)));
  1688. X       case STINDEX:
  1689. X           {    register r,c;
  1690. X           register maxr, maxc;
  1691. ***************
  1692. *** 1207,1213 ****
  1693. X      default:
  1694. X               error ("Illegal string expression");
  1695. X               exprerr = 1;
  1696. !              return((char *)0);
  1697. X      }
  1698. X  }
  1699. X  
  1700. --- 1271,1277 ----
  1701. X      default:
  1702. X               error ("Illegal string expression");
  1703. X               exprerr = 1;
  1704. !              return(NULL);
  1705. X      }
  1706. X  }
  1707. X  
  1708. ***************
  1709. *** 1261,1272 ****
  1710. X      if(calc_order == BYROWS ) {
  1711. X      for (i=0; i<=maxrow; i++)
  1712. X          for (j=0; j<=maxcol; j++)
  1713. !         if ((p = *ATBL(tbl,i,j)) && p->expr) RealEvalOne(p,i,j,&chgct);
  1714. X      }
  1715. X      else if ( calc_order == BYCOLS ) {
  1716. X      for (j=0; j<=maxcol; j++)
  1717. X      {   for (i=0; i<=maxrow; i++)
  1718. !         if ((p = *ATBL(tbl,i,j)) && p->expr) RealEvalOne(p,i,j,&chgct);
  1719. X      }
  1720. X      }
  1721. X      else error("Internal error calc_order");
  1722. --- 1325,1336 ----
  1723. X      if(calc_order == BYROWS ) {
  1724. X      for (i=0; i<=maxrow; i++)
  1725. X          for (j=0; j<=maxcol; j++)
  1726. !         if ((p = *ATBL(tbl,i,j)) && !(p->flags&is_locked) && p->expr) RealEvalOne(p,i,j,&chgct);
  1727. X      }
  1728. X      else if ( calc_order == BYCOLS ) {
  1729. X      for (j=0; j<=maxcol; j++)
  1730. X      {   for (i=0; i<=maxrow; i++)
  1731. !         if ((p = *ATBL(tbl,i,j)) && !(p->flags&is_locked) && p->expr) RealEvalOne(p,i,j,&chgct);
  1732. X      }
  1733. X      }
  1734. X      else error("Internal error calc_order");
  1735. ***************
  1736. *** 1308,1315 ****
  1737. X          v = (double)0.0;
  1738. X          } else {
  1739. X          cellerror = CELLOK;
  1740. -         v = eval (p->expr);
  1741. X          gmyrow=i; gmycol=j;
  1742. SHAR_EOF
  1743. true || echo 'restore of pch616-617 failed'
  1744. fi
  1745. echo 'End of  part 1'
  1746. echo 'File pch616-617 is continued in part 2'
  1747. echo 2 > _shar_seq_.tmp
  1748. exit 0
  1749. exit 0 # Just in case...
  1750. exit 0 # Just in case...
  1751. -- 
  1752. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1753. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1754. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1755. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1756.